home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr43 / procal.zip / ECHO2_IT.CAL next >
Text File  |  1993-04-17  |  2KB  |  52 lines
  1. ;;; ECHO2_IT.CAL
  2. ;;; from INTELLIGENT TECHNOLOGIES c1992.
  3. ;;; Creates two echoes where the delay time between echoes is entered
  4. ;;; in ticks. Each echo's strength or velocity is calculated as a
  5. ;;; percentage entered by you. The MIDI channel of each of the echoes
  6. ;;; may also be set. You will find different MIDI channels useful if
  7. ;;; note durations of the original track cause echoes to overlap.
  8. ;;; Try adding panning controllers (PPONG_IT.CAL will create auto-pan
  9. ;;; controller events for you) once the CAL has been run to further
  10. ;;; enhance the echo effect. If more than 1 MIDI channel is used, and
  11. ;;; you have forced channels active on the main screen, you will want to
  12. ;;; either disable the forced MIDI channel on the front screen (have the
  13. ;;; channel appear as '---') or move the data assigned to other MIDI
  14. ;;; channels to other tracks.
  15. ;;;
  16.  
  17. ; prolog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. (do
  19.   (int dt 60)           ;user delay time in ticks
  20.   (int dt1 60)
  21.   (int nt 90)           ;delay slope by percentage
  22.   (int ntt)
  23.   (int ch1 2)           ;MIDI channel destination for 1st delay
  24.   (int ch2 3)           ;MIDI channel destination for 2nd delay
  25.   (getInt dt "ECHO2: Enter Delay Time in Ticks " 1 480)
  26.   (= dt1 dt)
  27.   (*= dt1 2)
  28.   (getInt nt "ECHO2: Enter Repeat Level percentage " 1 99)
  29.   (getInt ch1 "Enter 1st Alternate Channel " 1 16)
  30.   (getInt ch2 "Enter 2nd Alternate Channel " 1 16)
  31.   (-- ch1 )
  32.   (-- ch2 )
  33. )
  34.  
  35. ; body
  36. (if (== Event.Kind NOTE)
  37.    (do
  38.       (message "Copyright 1992 by  ***Intelligent Technologies***")
  39.       (= ntt Note.Vel)
  40.       (*= ntt nt)
  41.       (/= ntt 100)
  42.       (insert (+ Event.Time dt) ch1 NOTE Note.Key ntt Note.Dur)
  43.       (*= ntt nt)
  44.       (/= ntt 100)
  45.       (insert (+ Event.Time dt1) ch2 NOTE Note.Key ntt Note.Dur)
  46.    )
  47.    NIL
  48. )
  49.  
  50. ; epilog
  51. NIL
  52.